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Well, the second year has now 
come and gone for the Newsletter 
and the possibilities of change 
are in the air. 

Electicrns for the Executive are 
now at hard anc as stated in the 
previous elections of last year, 
the executive may only vemair 
for a term of upto two years. 

Up for grabs are: 

Presiderit 

Administrative Director 

The other ровібісте for software 
and hardware directors, as well 
as the treasurer, have only been 
cccupied far one year each and 
therefore can be vacated this 
year only if the incumbant so 
wishes. То my knowiedge, both 
directors are indeed vacating 
those positions due to varying 
personal reasons. 

I beleive that recognition cf 
the efforts and dedication by 
each of the respective incum- 
barts is mast definately 
warranted. It is now up to the 
membership at large ta nominate 
and vote in a new Executive. 
Naturally, the outgoing execs. 
will erndevcour to assist the 

new reps ir ensuring a smacth 
transition. 

In as far as the Newsletter is 
concerned, the matter may not 

be as easily resolved. A 
newsletter is, fer this group, 
an esserntial and important part 
af it's existance. However, it 
is a function that requires some 
dedication, krowledce of the 
subject at hand, and a great 
deal of support. Such support, 

I am sad to say, has not to 

this date been sufficiently 
evident. 

At this time, I am at a loss 

as tm whether to attempt to 





continue, putting the position 
up fer grabs, or stopping 
publication entirely. I 
believe that there are a 
number af individuals within the 
group that may be able ta pull 
it off if they were to receive 
the appropriate support, but 

I am nct sure that they would 
want the long and tedious job 
in the first place, cr if 

they would be able to cbtain 
the info to keep it going. 

in this regard, if anycne is 
of the opinion that he/she 
would like ta give it a go, 
please let me know as soon as 
possible so that I can arrange 
to talk teo them . I will ther 
explain all af the intricate 
functions involved. 

So, let's see your support 

and perscnal dedicatian in the 
upcoming elections! Survival 
is of the fitest. Are you fit? 


THE EDITOR, 
В. MULDER 
19/11/85 
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GENERAL 


PARTIAL PASCAL 
A BACKUP PROCEDURE 


PARTIAL PASCAL for the ZX81 turns 
out to be а surprisingly good 
package. It is necessary, however, ` 
to read the instructions carefully 
and experiment for some time 
before making a serious evaluation 
of the package. The following 
paragraph summarises my comments 
on PARTIAL PASCAL. 





i IR 


1. To make a good use of the 
package, complete familiarity with 
the necessary screen entries 15 
required due to the rather 
incomplete prompts to guide the 
user, 

2. As far as I was able to 
determine, a compiled program must 
be saved on tape and then reloaded 
in order to be executed, I would 
prefer the convenience of running 
а program from memory thru a "RUN" 
connard. 

2, Tre keyboard decode routines 
are somewhat slow. Keys must be 
held down for а noticeably long 
period of time before anything 
registers on the screen. That 
makes speed entry impossible for 
those who have regular keyboards. 
4. Integer only. 

2. Files handled by PARTIAL PASCAL 
are  savea3/loaded at 7Х81 speed 
(about 30C Бам4в). I am used to 
aoout 1200 bauds with GUICKTAPE, 

é. It is not obvious where the 
source and object files are held 
in memory. This information is 
required for further studies оп 
the сЕ)есі files properties (are 
they relocatabie, can they run 
independertiy of PARTIAL FASCAL, 
Ett... 


PARTIAL PASCAL AND GUICKTAPE 


A backup copy of the package can 
be made by Saving, trom FARTIAL 
PASCAL itself, the conpiete 16K - 
TAL memory bloc’. A special loader 
program is tren required to set 
the stack pointer to the correct 
locetiorn, prior to the actual load 
ef PARTIAL PASCAL. 


The backup сору will load faster 
and occupy less tape space if a 
fast loader/saver is invoked. In 
this exercise, GIIICKTAPE is used. 


THE FACKUP PROCEDURE 
Load the PARTIAL PASCAL іп the 


regular manner, Enter the 
following PASCAL program that will 


give us information about the 
stack pointer location. 


PROGRAM STACKIINPUT,OUTFUT): 
VAR VALUE: INTEGER; 
EEGIN 


МЕМ(%(.16446.):-237; 
MEM(.16447.) 12115; 
MEM(.164428,) 1-601 

MEM(. 16449.) 1 2641 

MEM(. 16450.) 1: 2237] 
МЕМ(.16451.):=75; 
МЕМ(.16452.)1-60: 
МЕМ(,16452.) 1-64: 

MEM(. 16454.) t -2011 

VALUE: -USR(16446,0,0,0,0)1 
WRITELN'"STACK IS ",VALUE); 


E N D . 


After erecution, the result is: 


U) 


TACK IS 32e26" 


This indicated stack entry points 
to the routire at 16446. Thus, the 


previous stack entry - at 52680 - 
should point at the return address 
to | PARTIAL PASCAL. This 
information will be required later 
о” when а Small loader progran 16 
prepared, thru which the backep 
copy of FARTIAL PASTAL will Бе 


loaded. 


Another PASCAL program is reqGaired 
to actually save the PARTIAL 
PASCAL to tape from within FARTIAL 
PASCAL itself. Overwrite the 
previous PASCAL program with the 
following: 


PROGRAM SAVE (INPUT, OUTPUT) ; 
VAR VALUE! INTEGER} 
РЕСІМ 
MEM(.16404.):20; 
MEM(.16405.):2128; 
VALUE: =USR (8192,0,0,0,0)3 
END. 


This program will set E-LINE to 
32768 and then call the GUICKTAPE 
save routine. Thus the complete 
16K - SEK memory block wiil be 
saved to tape. Tris is dore in 








order to capture the stack Е ІТ =¬ "WU “ы 
information residing just below 


РАМТОР. жаны және тр 
. t 
за کے‎ 
The backup PARTIAL PASCAL just 
saved will crash if . loaded 


directly uniess the stack pointer 


FARTIAL FASCAL will load into 


: А Leet issue i promised same 
is properly set prior to the hints апд Fixes For the 
loading. To acheive this, load the Excellent "LISTS" FILET program 
: ғат the ГЖ BL iizti&e&d іг tre 
backup PARTIAL PASCAL with the ыер л ы” 5 КЕНЕ 
рРегссбвпав: KEL ШЗ LÎ =» 
following BASIC loader: 

I had FEE this PrOgram if 
тызеіР а coupie of years ago an 
found it to be uzeruii and шеті 

10 REM XXXXMXNXXXX written. Nowever, there is 
11 POKE 16514,49 nothing 50 90089 thet it Can not 
re improved. 

12 POKE 16515,176 Е 5 z 
12 ЕСКЕ 16516,127 Sfter entering and debuaaing 
14 РОКЕ 16512,205 the program, I ran а теш tesis 
gu ux With dirFrerenti SIZES and nummer 
15 FOKE 16518,13 of Files. I diztoverd that if 
16 POKE 16519, 32 ome responds іс the question 

; Hou mart Fi Les тіс шан Want? : 
17 POKE 16520,201 ЕТТЕ 25 
13 FOR I = 1 TO 22 the maximum shown, the program 
19 SCROLL Stops with an "OUT OF MEMORY" 

, ЕБ аде Кевр tris ih mind and 
eo NERT a slways respond to the question 
10 RAND USR 8192 With a zlightiu Smaller number. 
40 RAND USR 16514 His Mo 4; срегіғуч more rates 

PN Them чоц reati need. Aid іс 
50 STOF one af those programs that save 

the whole іісі even if there іс 
. coniu one entry іп it. BF 
To save this loader on «әре, just srt; т hori lige p ia cess -4 
Р й : й = гі зісішіш безе L2: u Lim И RL kt а. 
enter «RUN». After saving itseif, tengthen your Loading and savin 
. : б T іі fm ғ, ғ” TEE ir: 
this loader will automatically time neediezziu. 
wait for PARTIAL PASCAL. Play the т iso found ths f the 
tape file previously saved thru number en ге fame Close to 

i 3% Za fie Md f i c ODE we Pu 

the PASCAL SAVE program above, and ting the memory, some very 

za € t a вар пес, e 

h а 


cmm. 
ete PO RAD П 


yk» up 9 
LL eee 
et 


ҰЛЫЛЫҒЫ Та c БЕТТ 
etu EL rtt 


т d 
г п Rapp 
$ È., е = г HEEE Fi 
memary from the copy and will mataricyu ы вїбш апчшачціь would 
| Slow down to a Point where it 
autorun. pen | Коч on oe as 
сеш д take гіпгеі а minute ta 
clear the Screen. ALES, а кійірі 
It Р " | FE THT EE anme th: ngo * m + --I = = сЕ 2 +. 
is а simple matter now to ЖА ren 2-22 5-22 22 0. 
fommand. which шол USUI JUS 
prenare а backup tape of PARTIAL тір it up there, would тіні” 
PASCAL with the above small BASIC әгі about one character a 
ё рог: | т? ос шегі? SR = fot 
loader followed by a backup copy Second. (thal 5 арсыт GU кесопа 
_ | to print one Line:. 
trom the SAVE program described 
above. After zome experimentatiocor 
figured Gut thai the rezi 
ms bm ж О $ сз =, = + ы =. > үз шы Fe = = ғ, ; 
ссіргіс шас tne сікші: Canned. 
Marcel С boult Don't BEK me why but arter the 
First SCROLL command in the 
program is exetüuted, these Wier 
Things ztart io happen. 


= =z mz I wrote a Small machine code 
ERE gum fau ecroul of mu cun that fils in a 

REM statement. (see Listing). 
duet Follow the instructions an 

ысы ShOuULd hsve no Problems. 


Wl 


yt 


"з 


fh. 








Another thing I found, and 
this if JUSt Personal Prefer- 
ance on my Part, is that ай! the 
choices are made With INPUT 
statements. That means a minimum 
of 2 keustakes. Many of the 
responses аге Single letter and 
сап be handeled nicely with 
INKEYS. Fiddle with it а bit and 
cee what I mean. 


ОҒ course, the program will 
run on the 2929635 minus the SCROLL 
and FRSTSSLOU commands but, with 
а Little work, сап be very much 
enhanced. 


I hope these suggestions are 
cf use to you. 


Jim Turner 


Pid 


There іс а сору of ту 2Х81 
version іп our club library as 
well ас a much enhanced 2058 
version. 


LISTING FOR НС SCROL 


REM tat teast 58 
FOR X = 16514 ТО 
INPUT A 

POKE X,H 

NEXT X 

STOP 


guion e com 


RUN and Enter the fotowing 
numbers: 


--» 42 12 64 84 93 1 33 @ 42 12 
64 9 1 181 2 237 176 42 12 64 1 
i82 2 а 84 Өз БР 0 115 19 1 33 @ 


ЕЗ? 176 1 214 P 42 12 64 Ge 118 
o 118 1 21 2 2ei. 


Now delete Lines 2 through 6. 


Enter these Lines: 
2 LET 5С-5 

3 GOTO 18 

5 RAND USR 16514. 
6 RETURN 


Now go through the listing and 
Change every occurance of 
"SCROLL" to “GOSiUB SC". That 
&hoULd take tare of the Stowings 
down problem. 





SAMPLE INKEY$ ROUTINE 


LET 2%= INKEYS 
j| IF 7%-"" THEN GOTO 7 
| RETURN 


Now change alt accurances or 
INPUT 7% (or Whatever) ta: 
GOSUB 7: Го the usual checks on 

and uou шоп t have to press 

after a simpie "yes" of 
"ho" tupe question. 





AAAAAAAAAAAAAAAAA 


OUT OF THE 
LIQODCLWORE, 


Ба: Hares Rosewarne i 


To use our Editor's words. J 
thoeuaht I would see if I could 
come out af the "uoodaarnk" and 
try mà hand at wunitinao an 
article for the Heuzlettec, 
Frank Ly thou. I have been 
intimidated Ба the abilities af 
the contributina members 1n 
their underztandinas of the 
Sinclair and the zoPhizticatien 
cof the Proaramz written and 
demonstrated. However. I do 
sence that there are » timber 
Of members whim zb awas fror 
actually writin à Proaram 
thereby miszing a great deal oF 
fun and eianificanti кесата 
the usefulness of the machine. 


With а litte Practice. a 
Proumam can Quickly and eazila 
be written to Perform santre 
Personal calculations be thes 
to determine the alcohol 
content of your latest home 
made wine or the resultzot «our 
tart Sane Payments, Usually it 
WILL be auicker to sit down and 
write a ресама to do dust that 





than to hunt for one alread 
writter. learn haw to run it 
and then adapt it to «our 
ePecific needs. This 1 
Particularils true if acu. bee 
if scu keer it simple атат" t 
trey to be too sophisticated. 

To illuztrate the Point. I 
wanted to find out hou ma 
тоғ%азае Payments were divided 
between interest and Principal. 
I мас curPrised to find that a 
ӘР statement Program that 
included several REM statements 
, and instructions was all that 
was needed to Produce a 
Proanam that did the diob and 
waz uite user Friendly. The 
Program іс easy to run; simpls 
ПАГ" and RUM. The Prompts ack 
for the inpet data ef initial 
Principal. interest rate and 
monthly Pasment in the correct 
order, 


The computer then се, into 
FAST mode and calculates 
table for the year Giving the 
interest Paid. мор аз ае 
repayment and the PFreinciPal 

hal aime 3+. the end mt PAG ch 
manth Жр. the sear, Eu 
Pressina the COHT Кеч, the next 
weap’ s table іе calculated and 
disPlayed. This tan be changed 
fron time to time as the 
mortgage conditions change. 

The Program is vers zimPle, 
however. its sophistication can 
be increazed Бра addins 
subroutines to: 

аз alian the decimal Pointe 
and round to the nearest cent 
рә calculate the (number of 
Paamente to retire the mort oaae 
С) alter input data 
interactively 

d include a мети, 

ез include ara other neat 
features that you might think 
mt. 

The Proaram for the 28-51 
version іс az follows: 


E 


ee 


166 РЕМ MORTGAGE CALCULATIONS 
11 РЕМ PROGRAM Н" HAF. 

POSEWARHE 

17 РЕМ LOAD MORTGAGE CALI 
SLO 

ЕРІНТ" РЕТНСТРВ =": 

THFI!IT F 

FREIHT F 

ЕЕІНТ" IHT RATE=" 

IHFLIT ТЕ 

РЕІНТ ІР 

LET Fat 1+ .S#1F 1060 ЖЖ 
Eke 1 

FRIHT" Fe "GF 

PRIHT" MOHTHL' FPAYMEMT=" ; 
IHFLIT HF 

РЕІНТ HF 

‘FOR Үсті ТП 

FAST 

L FEINT AT @.@;"FRIHCIPALS= "| 
PRIHT"IHT зз „тр "Бш э. 


T) ба АЗАА Е ل ا‎ м 


tee Cmm Db TY, fo O TE ime Жл Жул Жи Б 


xs 


ГӘ 
ы 


A لی‎ и 


D 71 kt uv uou іы 


5 PRTHT "MÜOHTHL'! PAYMEHTS= ":; 


114 ЕРІНТ AT 5 
115 FRIHT 
121 PRINT MO THT PAYMENT РЕТ 
Ase THT LOAM BRL." 

2f POR Mzi TO 1z 
vt LET ІсРЖҒ 
156 LET РЕсМР-І 
1446 LET EZF-FF 
17M PRIHT М; TRE 3:1; THE із: РЕ 
i IHE Z3;E 
146 LET Р=Е 
196 HET М 
195 ЕРІМТ AT 21.8: "PRESS COWT. 
Тіл COHTIHLE!" 
1 ei Cui 
ZMH IF IHEEYS 
281 IF THEE "m THEM GOTO ZHI 
cuz JF THREE Y$="" THEM GOTO 210 
САЗ GOTO zn 
ZIM НЕХТ т 


= 
т 9 


‚12 = ES "OE RE " f “ 


р" THEM GOTO 26G 





ГЕН». Li =. 


AND THINGS 





Well, here we are again for a 
roundup of news and observations 
on а variety of Timex/Sinclair 
topics. 

It is rumoured that two 
software houses іп the UK will Бе 
producing mice [mouses?] for the 
Spectrum. Mice are of course 
available everywhere; it’s the 
interface that doesn’t exist. Look 
to both OCP and Kempston to 
produce mouse interface boards іп 
the next month to support their 
graphics software offerings. 

Meanwhile on this side of the 
pond, U.S. software houses [hice?] 
are beginning to produce and 
market in the UK, 2068 software 
adapted for the Spectrum machine. 
A major software house doing this 
is U.S. Gold. But there are plenty 
of others, such as EPYX,  OCEAM, 
and DATASOFT. 

Тһе GL, which has had a hard 
time of it over here, is coming 
down in price both in the UK and 
in Canada. In the UK, Sinclair 
Research has cut the price of the 
GL from #399.95 to 9199.95. Іп 
Canada, Gladstone Electronics in 
Toronto is now selling the GL for 


$599.95 (without monitor and 
printer, and with 128 K RAM). 
According to Sinclair Re- 
search the price cut is possible 
due to "major savings from a 
substantial increase in manu- 
facturing volume... we've al so 


been able to cut costs through 
increases in efficiency based on 
experience gained in making 61765 
over the last year and а half." 
Rumour also has it that we сап 
soon expect a new machine to be 
announced by Sinclair Research. 
However the Spectrum* іп the UK 
still enjoys 35% of the market іп 
new sales, so don't count out the 
old machine just yet! 





15 a 128K machine for $599.95 
a bargain? Ап apple clone with one 
disk drive and 128K (monochrome) 
costs about $700.00. Are excep- 
tional graphics more important to 
you than a disk drive іп mono- 
chrome? For its price, іп my 
opinion the GL continues to be a 
bargain, especially at the UK 


price! 

For those interested in ап 
inexpensive subscription to a 
Timex/Sinclair newsletter, try 


QuarTerS (GTS) published іп New 
York State. A year’s subscription 
costs $8.00 (U.S.) per year. To 
order a subscription, write to 
W.M.J. Data Systems, 4 Butterfly 
Drive, Hauppauge, N.Y., U.S.A. 
11788. 

That’s it for this issue. As 
the next issue of this newsletter 
will be in 1986, Merry Christmas 


‘and а Happy Timex/Sinclair New 


Year to all! 
- LEO FOSS 


м оқты өзіңе ойы; ama ағыт GP Quee we ішім» ams жїрїп ФР» pues be quem SUP ӨН” (xD ee 


bs: Bill Harmer 


In the last article in this 
eeries ме dealt with conwertina 
mathematical statements. In 
this article. loS*9ical 
etatements will be discussed. 

The colon £:5» із used in most 
basics other than SN basic 
ch >, Cég Radio Shack 2 and iz 
ecd to Put tuo eebPenrate 


ылыый Кл tagether in one 
line. For example: 160 CLS: 
PRINT SCREEN READY". This sort 
of statement would be accepted 





ПІЦ |j) » 


bea met comPuterz other than 
the Zz-981. whose equivalent. 
Would khe: 164 CLS 
118 PEIHT'"ZCEEEH 
READ" 

Howewer. there іс a spezial 
trick to converting Proar amz. 
usins this in 25 basic when the 
first statement is an IF..Then 
et atep nit. berauze in thc Case 
where the statement fol lori r 
the if iz not true, then the 
comPuter will skip to the 
"next line заповіт the 
statements that follow en the 
came line. 

Со. {IAM IF кез THEH РЕІНТ" 
АЗ-ТНРЕЕ"-РЕІНТ"МЕЯТ 1НРИТ" tet. 
be changed to: 146 IF ¥= ТНЕМ 
ЕЕІНТ"” EQUALS THREE" 

164 IF x= THEM 
FRIHT"HEZT IHFUT" 

Another statement not seen 
in Sinclair basic is the IF.. 
THEN. ELSE statement. 
Replace this ztatement: 

140 IF x-1 THEN FREIHT" ; 
EQUALS ПНЕ" ELSE FRIHT"z IZ 
ЕЛІН TO 1" 

bu the Me. 

146 IF X1 THEM PRIHT" X 
EQUALS МЕ" 

ій IF НОТЕ к= o THEH FFRIHT" X 
IS НСТ ЕСИНЕ. To 1". 


Hnother tube of statement nat. 
allowed in ZZ-81 basic іс the 
OH. GOTO statement. This can 
Бе rerFlaced Ба separate 
statements in Zs basic і, е, 
14 IF Н=1 THEH GOTO 16¢ 
ей IF Н=2 THEN GOTO 20 

3 

li 


“ғ 
- ^w 
Ж) 7 


HIT 


Зӣ IF Hz3 THEH GOTO : 


ZA basic will also allow for 
сир и {е ЖАНИ etatsement =. ta 
replace the OH..GOTÜU i.e. 

18 GOTO £Hz1»k16004Hz2 ^ 


жопа HES Жар 
ос if the line тишек to GOTO 
are mathematically feasakle, 
ій GOTO HELGA 
GOSUES fallow the same 
general rule. 


тин e ннан» Аранин алынан лыр аланин лн н лала‏ ا 


Mine mare nate concernina the 
JF..THEH..1650 ztstementz do 
nont fora that ZW basic 
reguires the use of GOTO.. а 
line number: оғ LET in an 
assignment statement. 

Thats all for now and there 
Will be more Comins later.. 


F— ei I] 


2л-@1 GUICK TAFE UTILITY 


Sense deron CONE ыны оғы FUER: ақы» жыл” GRY Gyms ақы Sine ғ» бы» АМІР eee eget) Sl ener айыз 90» анын олын мм” 


from Sinclair Programs Т 


The followins excerPt will 
allem all 7-81 owner to eave 
and load their favouratce 
Proarans five CS? times faster 
than thes can now. DePendina 
On "cur cassette’ =. 
caPahbilitiez. this Proaram is 
ultra <table and wirtualls 
итек акак 1ке, 

Тере in listina 1. с the 
First REM has 248 EP aces in it 
7. РИН it tao load in the 
machine code in listina 2. 
delete listina 1 line-ba-line 
and then tape in Listings 3. 

Save the Proanam ba tyPing in 
GOTO 16, Co "aunself а favour 
and save at at least twice to 
enzure that you have a Ocad 
copu, R detailed inztructioen 
follows. the listinas. 


LISTIHG 1 


шам Өніп, qua. PE ЫНЫ ғың» ыы ШӨ» nare 


1 REM ¢ 240 @’ 3)} 

18 LET Я%="" 

24 IHFIIT ЕФ 

за IF Bs="5" THEN STOP 

44 LET AS=AS+ES 

e CLS 

ей PRIHT AS 

та PRINT "LEHGTHz";LEH R£-^2;" 


ea БЕТЕР 








161 LET X-16514 
145 FAST Б 
114 IF n THEN GOTO 1664 


126 POKE X.1e6*CODE НФ4ГГІЕ 


Hc 20-47€ 
за LET Akshi TO » 
d LET numus 1 
ce GOTO 116 
Єй SLOM 
ұй STOF 


Machine code listing 
16514 CD 23 OF 
16522 7F CD 2B 


16530 21 1D 7F 
16538 7F 2B 
16546 00 
16554 03 F9 
16562 30 
16570 F4 
18578 F8 
18586 ЕС 
16594 Cs 
16602 FF 
16610 30 
16618 EE 
16626 03 
16634 18 
16642 DB 
17 
Е5 
2А 
17 
40 
01 
1D 
Е5 
30 
7А 
50 
40 
Bo 
C3 


10 SAVE "FAST TAPE" 
20 PRINT'FAST TAPE" 
30 PRINT" TO SRVE-RRHD USR 


Pell 
4251 ra 


4& PRIHT"TO LORD-RRHD ИЕ 


32525" 
Sa PRISE 15 
Єй FAHD "6738 











4th Corner 


XAESHAK SOHGI EF 
SHAH SOHG HHS FOI G= 
EHPIF i 


МЕПЕТН “CHAHGE and effectivela4 
Hawa Mild Software has bitten 
the duet! The compans is 
kh]1amina ite demise on the 
dieaPearino9 market and the fact 
that the Portugese TIMERE FAES 
failed to revitalize the 
situation, The balance of its 
stock will will he the balance 
af the combans. On sale аке, nf 
courze ХЕПЕТН. ABERSOFT FORTH, 
НІЗПЕТ D. DEVPRHC-3., HISOFT 
PASCAL, and oddz and endsz. 


As a further ewcerbPt fram the 
forth атое теме letter: 

ясы! will find herewith a 
ігяеЖісеі imPementation it 
ABERSOFT FORTH, 


Mf SCR #171 STICK ЕНІМ 4-15-85 
МЕСЕТН ZCHRHHGE > 

1: WALL |; 

e HEX 

л: JPHEXT i£---5» C3 0, 2D C. 

91 C. ; IMMEDTRTE 


4 CREATE STICK (---n» 
CFE C, 
= GE C. GE C. 
л C, FR C. 
с GS C. a1 C. 
Ү ВЕ C, FÈ C. 
RED C. 7A C. 
SF C. 
а Бе C, BF C, 
ов C. яй c. 
161 EF C, C1 f. 
11 ES Г, 
12 ЛЕНЕТ SMUDGE 


13 € STICK RETURNS В NLIMBER ПН 
THE STACK = WAaaGovvvv. ELMAR’ Э 
14 ¢ ¥=1,BUTTONS@ NO BUTTOH 
ywev'yvsOG@.CEHTER =41 . FORWARD 

1% 5 -02,ЕНҢГЕ =A4, LEFT =й®, 
RIGHT ù DECIMAL :< 


» 











run them successfully. The 
Program works as advertised. 
=~ б few Problems, though. 
First, the non-standard 
£UIEIS€u: IOS O LITRO 
exampie, "Duplex" 15 called 
“Simplex For some reason. 
„ошер Шын T 2 Translating а downloaded proocram 
асаа с eee ср into Sinclair Basic if called 
dici ыс = N.Y af а Transfer, gti. Second, Line 
a в а = ыы i = т, + = = : „к. PITE 
PRICE 12,25 i, 47 دع‎ from the sending ЕЕ =, Laiiie£ 
i жі ue a Line of inverse "ы" s down the 
One of the problems in AG M E MM Жалал ы те жер 
communicating wath mu zxXx-2i and وا‎ ана to 42 Ea the BES 
ЖТЕ-БЕСЕ Modem is that шкі! not to send Line feeds. but on 
ET DE 52.00 si manu BES's (including mu oun) 
down і faded from Bul le tin Board trict can't Бе done. Third. 
тоне ЫН = > >= œ = + сд ял) م سر ےس‎ „ -m BG 
Systems, programs tan not (they ziraight НӘСІІ text can t be — 
сап however be sent directly by saved, 5o if you want to save 
telephone to other ZX-Bl owners incoming data {not file dataj, 
With EYTE-BRHCK modems). The — POTAE 1. a Baas әш йла 
reason for this із that the ы-ы X Бозу н 
БҮТЕ-БЕСК Modem only supports dou Use the full 1ӨК-С4К area, 
XON-XGOFF Protocol on text са а wen. FOO can Бе 
transfer, iXON-XOFF are signals uploaded оғ downloaded 
exchanged bu tuo communicating fev TE-BACK software only permits 
computers. They control the —— do dekr OSO гї 1g 
communications, by telling the Pleasantly easy to operate. 2. 
Sending computer to stop sending anyone who has a БүТЕ-ЕНСЕ 
data until an XON is received, 227005 gee 004 M 
These zignaisz аге needed іп uou visu the Mini XMOD Lacy az a 
order to give the receiving sUppiementaryu software only for 
computer time to process the file exchange, it is a valuable 
received data. BYTE -BACE investment, and highiy 
Software alto does not support recommended, 
“MODEM protocol.  XMODEM is а 
Sophisticated error-checking 
Protocol in which the receiving a=, =, „ил ұта, 
computer receives tuo checkzumsz 
at the end of each block of data 
Sent. If it cannot verifu the 
data received, a signal is sent E — E Ж E m € 
тє їп the sending computer to "ы ы. 
retransmit the last block. 
It was therefore with some 
BuUrP rise that I Learned that 
zebra Sustems in New Work City 
Wes marketing XMODEM software 
fer the Үх-51 and ЕҮТЕ-ЕЕСК 
Modem. I promptiu sent in mu 
Order. 
About 4 weeks Later, a tape 
arrived in the mail. According 
to the label on the tape there 10 FEM SECRET AGENT IS AN ORIG 
шеге two versions: а 15H INAL PROGRAM FOR THE ZX-E1 Ev EI 
version, and a 84K version LL HARMER OTTAWA-AND IS асат АЕ 
(which Loads into the E-1lzr. E FOR THÉ PERSONAL USE OF MEMBE 
агеа:. | RS ОҒ THE OTTAWA-HULL ТІМЕХ SINET 
First surprise. No manual, EE USER GROLIE 
Not to worry, I fired up the DIM xi100: 
program and found it EO PRINT AT 10.0; + SE 
menu-driven. I had no CRET AGENT ж” 
difficuitu іп making it work, ES PRINT АТ 3,0; "+ 
except that I couldn’t figure E 
OUR how to run the downloaded Б? PRINT AT 11,.0;"x 
Program ішкісі if why I bought x 
1f zn the first Place! . H 70 PRINT AT 8,0;7% 
telephone Call to Zebra Systems xU 
confirmed trey had forgotten to Ye PRINT AT 12,06; ‘4 
include the manual. Three weeks E s 
Later the Manus i affitvéd. Ж = PRINT ат 7 FO КАССАҒА ج ج چ‎ ааа 
I have since үрісадед 2х-81 يجيج‎ SER ج ج ج ججج‎ 
Programs to mu BES (827-1267), ЭУ PRINT AT i12,0;"*srxse5*xX 
and then dounioaded them, and XX£kkbkbkX£kk£X£iXXkXkX£kU 








SQ PRINT AT 21,0: "PRESS ““ЕМТЕ 
R SY REY о GO ON" 

a5 INPUT A$ 

ae CLs 
ae IF AS="SESAME' THEN GoTo ao 
100 PRINT “SECRET AGENT I2 я PE 
OGRA DESIGNED ТО ENCODE н 
ЫР DECODE SECRET MESSAGES’ 

101 PEINT 

102 PRINT “A MESSAGE ІЗ ENTERED 
ANCE THE COMPUTER LILL CONUEE 
T IT TO à ЗЕШЛЕМСЕ ОҒ LUHIHTELL 
IGIELE NUMBERS. THE MESSAGE 
СЯН EE DECIPHERED ЕУ ANOTHE 
puces HAVING THE SAME FROG 
намы 


1035 FEINT 

104 PEINT "ONE MUST ENGI! НОМЕУЕ 
ER iHICH OF THE FOUR CODING OPTI 
ONS HAVE BEEN USER" 

105 PRINT 





125 PRINT “VARYING THE CODING Ó 
PT ION MAKES THE CODE MORE SECURE 
110 PRINT HT 21,.0;' ENTER 
TO GO OH" 

liz INPUT A$ 

114 CLS 

115 PRINT "ENTER ""CODE'" OR "" 
DECODE"" DEFEND- ING ON WHETHER Y 
OU WISH TO CODE A NEW MESSAGE DOE 

DECODE а CODED MESSAGE” 


1280 INPUT M$ 


120 PEINT 
140 PRINT E uu CHIC CODE ri 


nal 
= 
Es 


ARE USING 11, QR 4)" 

450 INPUT i 

155 PRINT 

1e IF М::1 AND Werz AND и a 


E ONLY ONE ОҒ THE NUMBERS 1 
OR 4. TRY AGAIN” 


= 
i گے‎ 


ND WU: 56 THEN FEINT AT 10.8; CENT 
‚ж 


i70 IF Ыз] AND Were AND Lic а 
HD Lc vad THEN SOTO 150 

180 LET Іс) | 

19а IF Liz THEN LET І=5 

200 IF iz4 THEN LET Іс? 

210 REM "I" IS EXTRA INCREMENT 
OF SUBSTITUTION, HERE SET TO 1,2. 
E OF 7 IBY CODE 1,3,2,4} 

220 SLs 

3509 IF M£z'" CODE" ОБ H&z'" c" THEN 

сото 108668 


519 IF M$: CODE" AND М%: “RECS 
DE" AND M$:c-"C" AND МУ” Б” ТНЕМ 
GOTO 115 

SERD IF M$-"D" OR M$-"DECODE" TH 
EN 5-55 саба 
ото 115 
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1049 FREINT "ENTER YOUR MESSAGE N 
TO г CHHRAHCTEEZ-APPERU 


RINT "IF YOUR MESSAGE IS L 
BREAK IT ЫР INTO SMALLER M 
ES AND CODE THEM SEPARATELY 


PRINT ат а,о; "SEES eres 


INFUT R$ 
PRINT AT 2,0; ы 


IF {LEN Б%і;12 THEN FAST 
LET Fs" 

REM IN OTHER COMPUTERS LINE 
ic ROLL Ds EE- Ug = LOS i RẸ, м. 
FOR N21 ТО {LEN ЕФ; 

LET USsRSin TO HI 

LET агат UE: j 

IF Ү:10 OR Y:865 THEN GoTo 1 
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e THEN LET к y -EEB 


1540 PRINT Fs 
1400 PRINT AT 20.0; "PRESS ENTER 


TO CODE AGAIN GR ENTER “"E 

TO GO BACK то START" 

1410 INFUT AS 

1422 CLS 

1440 IF H$z"E" OF RSz"BEGIH' THE 


M GOTO аа 
1460 GoTo 10230 
z000 FEM DECODING ROUTINE 

2016 PRINT UV PROGRAM TO DECODE й 
МЕН MESSAGE" 

1227 FRINT “USING CODE NUMBER 

2030 PRINT 

2040 PEINT "ENTER THE CODED TEXT 
COMPLETE WITH COMMAS BETWEEN 

THE NUMEERS" 

26045 PRINT 
z050 PRINT “UP TO 180090 NUMEERE AR 

2055 PRINT “int SPACES ARE FLACE 

D IN THE DE: DED ТЕХТ" 

ees PRINT 

есес PRINT АТ 24. 


Е ALLOWED TE TEXT". 





INPUT P$ 
PRINT AT 2,0; au 


IF LEN Рф:26 THEN FAST 

z020 LET G$z"" 

2100 REM IN OTHER COMPUTERS FOR 

LINE 2210 S5RHY-U$zMID$£iP$S$.N.1! AN 

D 221Е (ФеМІбС%іР%ф,М41.1) 

2200 FOR Hz1 Th (LEN Бе) ӘТЕР Ж 

егіс LET USsFPein TO WN: 

егіс LET (фср%іМме1 TO N+} 

2217 LET М= ined) 73] 41 

2220 LET xíMizumML (Use gs 

e230 IF хіізсдә THEN LET Рф 
= 


=F 
2235 IF хі11-й THEN GOTO 2036 
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Gee NEXT Y 

2237 LET XIM! =ixX {Mj -7)-I 218 LET ТНЕМ=ТНЕМ+1  — 

2240 IF XíM)«11 THEN LET XIM: =x SQ BEEF .5,-2@: GO Ti 
22 e BEEP 5; 20 80 TO А 
Му +55 1520 IF іф=афірс= ч GO SUB 2 
2252 REM IF ХІМ) c33 THEN LET хім Әсе: RETURN A 
jzXiM)458 FOR ASCII IN LINE 2249 1810 LET ERRORSERRORG1: PRINT AT 
2260 LET с%с%-СНБ% (ХІМ); 21.185; ERROR: IF ERROR=S THEN LE 
2290 ES N T ERROR=@: LET ТНЕМ=ТНЕМ+1 

295 SLO; ie2e RETURN 
2500 REM “Ооо” (4 ZEROS) ENTERED савр LET ОсіхжіЕ8і-д4: LET U=148-t¥ 
WILL RESULT IN PREVIGUSLY CODED +51 

TEXT BEING ENTERED FOR DECODING Heese PLOT 0.15: DORAN @,U: BEEF . 
pln А eoz.i1e. BEEP ,005,-19: PLOT OUER 

5 ії; 0.2185: ч ы GU 4 ; 5 i } 
5550 PRINT AT 28,0; “PRESS ENTER 2810 LET po: pelts fe E a 
TO DECODE AGAIN OR ENTER “ЕС” x THEN GO SUB 2000 
то GO BACK TO START EOZO RETURN | 
Z260 INPUT AS 3080 LET Н=1: LET vOU-vOusi: PRI 
езбе CLS М "m NT AT Y.X;" ": FOR Бшә TO 40 STE 
EC ID лыы. OR R$-"BEEGIN" THE P 5: BEEP .0895,B: NEXT B: RETURN 
= NEN А7 

e550 GOTO 4000 | PRINT AT 21,8;"YOU-"; YOU; AT 
2552 21.23; THEM-"; THEM; HT 21.12. “Ер 
9010 Р ROR"; ERROR: LET SKILL -д%іУу0і-ТН 
S020 PAUSE soo EHT: ФЕ SKILL:z8 THEN LET SKILL- 
Hoc C оо ci de mod ms 4005 IF SKILL:G THEN LET SKILL-G 
Sole CLs x 4212 LET SPEED=28-SKILL 

S050 GOTO 50 4820 RETURN 

50 GOTO 5% 5333 STOP 
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рата STATEMENTS H2 YOU 
LIKE JUST CHANGE Wi IN 
LINE 3001 TO MATCH THE 
NUMBER OF ENTRIES 
Seed LET 01-39: RESTORE 8B: Fi 
Б Uzi TO RNDsUl«1: READ Ag: NEXT 
Wi: RETURN 





я 
2 





a 


е үл 


тш 
ea 
c 
D 
ы 
x 
na 
ap 





seio DATA пат oe “GEORD", 
IRE", “JOS Нн", "DANNY' SOMA , "Оға 
"DENNIS" ALAIN" 
S828 DATA "THEN", “THEN” .“ AUTO" , 
“APRIL” JUMP", "THE" , ° RS 
URE", "MAISON" "DIS PU ROLL’, TAP 
Е“ "POSTER", “Брок” 
EEA ERE TE Se3e САТА "TET" "TABLE", "ROBOT" 
1 REM ج+جڃجججججججججججججججڃجججججج‎ "PORTE", "MUR", “PAPER” 
+ WORD INVADERS > сесоә SOUE “Парыз” 
% БҮ JIM TURNER я 9510 INK 7: PAPER Ф: BORDER 9: C 
Ек с ЫЫ н Ls 
E REM £4554 5444444445445 5453 ассо 13:" D 
+ FOR THOSE ANNOYING = esa GO SUB 9609 ^" НЕНІ 
# PEOPLE UHD NEED TO + 9540 PRINT AT 10.13;" SET " 
x PRACTICE THEIR TYPING 2545 GO SUB ова i i 
+ BUT PREFER TO PLAY + 2556 PRINT AT 10,13;% Go " 
EEE CANER: ee + ава GO SUB S580: RUN 
ААА 3600 BEEF .25,0: PAUSE 35: RETUR 
N 
S LET vOUzO: LET THEMzÜP == IRF 
Б LET SPEED-28: LET ERROR =@ а 
іг GO SUB S880. LET Н=@: LET p 
Әсші: LET €=” 
гә CLS 
зе GO SUB 4@2@д 
200 LET x =Rh іріізг-1-ЕМ а%! 
10205 PRINT HT а,х;а%; AT 28,85 +" 
118 FOR ч=@ ТО 18 
128 PRINT AT Ч,х;е%і TO LEN agi 
425 PRINT AT Ч4-1,х;а%ірос TO ! 
426 PAUSE SPEED 
igo LET іфсімкЕУуф: IF іф" TH 
ЕН GO SUE 1998 
439 IF H=1 THEN GO TO 18 
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1655 LET d=50R (VAL CS£;^(PIsURL b 2145 LET s-.81zINT (,5418855- 
631 158 PRINT OT 13s. AT 8,432. 
168680 LET ашс.ОӘізіІМТ i.54200sPIsds ES SUB sols. 6D TO 19 8,12;а: 
VAL bs: cic БЕТ SURÎ age (РТУ dti 
1565 LET d-.21sINT (.5+1802d) 2165 LET з к ые ; 
ae Sun Ge. AT 8,13;a;AT 5,13; аз аг — aT TED í 
û SUB баса: GD TO 18 abi a1 ET 2-2.2A1zII | 
1575 LET d-UBL aS (BsPIsvAl b$) о ЕЕ 2522 
Н { ”- A ЕС. oe S402 LE REEL. = کی‎ ii $2: 
SEL ee {,541830¢Piedt сїёб PRINT HT B,13:5.RT 7 i13:c 
1685 | EP : m TNT E Go SUB ааа: оз To 12 3 کے‎ ee - 
oco LE! d-.c9lri Ls i ў S485 PRINT ЕРДЕН 1; Qiu mee iom 
1698 PRINT Ере В E a. 1; INK DiRT із 
GO SUB Seas: co TO 19 ы ан өні E no solution available 
1500 LET d-z2sUBHi C$;URHL as rac M cM s SUB 34098. G 
17202 LET ьс.бізіМТ (,5+100% (VAL 2218 LET J=UAL аз/ІРІзУЕІ s$: 
азу/ігіріғізі? $515 LET ез рт із E (UBI 
1705 LET d-z.921zINT 1.5%100%4! 545-442: Сшірі/ііжіӛтезсығ [VAL £ 
1710 PRINT АТ z,123;d;HT 6,13;Ь 2220 LET dz.BizINT (.5418@¢4 
GO SUB 5422: бб TO 10 2 Bee a cr ое reds 
20080 REM SRE ӨЗ UE eee 
i ^ کے کو‎ is PTT - T NT АТ О Б.13;Е; И 7 4 г 
бор LET C£z"LONE":. GO SUB sage GO SUB азаа: ose aa Cae = 
= 12 INK [mr oF See LSG = = ‚За CRA 2 | 2235 DRINT F - к be, _ _ DE 
T ee 55,3: DRAW -?65,2.-.5зР S aiar 2515454 INK B AT 18, 
a DRALL 75,0 -.СжаРІ: Doi Жад” Tt d ое m no sol ion availiabie" 
DRAN -58.-58: PRIN abri mro aa жақан ne ааа Ae 
R» AT 13,221 "Sh. INK 7 | o... 2500 REM EBEENES 
GAT 4.7; fuo values ача ы rea: e -"SPHERE GO SUB ага 
FLASH 2 INK Fd "Radius R. ud сле. : eue “ ТЕГІ се 2AA TR ғ 
ше (18 TO )^"Height S...28 UE 10 SSeS PLOT Баз 52 DRAI 
aes UGLUME ss sen 2 mt іш%фіІЛ8 TO x NT ат ren rn es рра 32.2 PRI 
Surface Areas", wets бо} STO | ба тығы; 2% 
сг LET rz£- Е 18 TO p a udi ac ы. РБІМТ FLASH 1; INE 
зае iib шалап оон, Әле wells (edited 
сәсе INPLUT із us i15 2: 1 ғ | "Radi Ws Е: RUNS IU 
2030 PRINT АТ 5,13;d8: IF d$=°7" c NR da Eia ee 
TOEN LET с=г+1 т л ы E агеа.ш!;ш%іЛЕ ТО 
zoo LET f =; ? REG Ir = ш cm ET IE i " 
SAR =: 9Һ і u 3t! EI RT | UM US. чь Tragis oF sphere 1 
2055 INPUT s$ ЕЕ ы 
отот DT oZ evo ЫРЫТ гіз. OF -~ = 
2060 PRINT АТ 5,13;5%: IF s$-"7 2.77 
„ЕНЕМ LET rzr4i 2885 ГЕТ resnun LET rzr4i 
2065 LET r$-^voilume of cone": 80 Be cue Lona- ne ише T реге 
: азаг d EAR сы S 
2070 INPUT сӛ SO das UT сӛ: PRINT AT 6,14:с% 
ВӘ75 PRINT АТ 7,43:c8: IF Csr 2595 ГЕ PO Q1 THEN LET г=г+1 
1 i КТ کا اڪ‎ e 2 = зі mii 12757307 к, 
2080 LET сш= Surface area af con ре INDET = ا‎ _ 
e": GO SUB азад S IF age?" ag: PRINT RT 7,14;а% 
2085 INPUT аф ІЗ cas cue з 
2250 PRINT AT 8,12;а 5da IF rig THEN GO SUE 9415. GO 
h D Ы ыы ЫДЫ 7 ! ۾ - ر کے‎ a IF = % i = 7i ы = = isti 
THEN LET r=r4i $ a$ Eco "шша ыы tas, 
2095 IF г›2 THEN GO SUB S435: GO 504 IE газ THEN GO SUB 9405. 60 
TO 2015 E “ERS Бп T 
2108 IF г:г THEN GO SUB 3 E605 GO TO 2575+140 AND 
F гір THEN GO SUB 94 aw Aun SIE AND а%<> 
TO sait UE 8415 iid a a ымы сш ey Се 1 + і ize ET а ae 3 E: 
A = гі = = — ^ Е - 
unt re TO есіс- (os anb d$ patni сЕЛӘ i ЕТ н 2 -т 
Dot $$::"?"i2ii2O AND dé£ir"T" AN d v M E 
5222 425250502 22 AND B615 LET ас @izINT 1.5 
Na AND 5:97" AND с AL dii cc і.Бадддерізі) 
022. е 2620 PRINT AT &,44;c:AT 7 
үсү Z253 AND c$£:52"77" AND аф E GO Sus дааа. ch TO iĝ е 
=: 265 PET ;— 6h iin ; x 
Sere r=, Is TH .салдӘұр Tz ce Il f сізді с% ІШЕРІ: Ж iT 
БЕЗЕБ (USL zE£t2-UHL di 22025 ЕРЕ " ен 
en | HHL JAFFE: 75 E LET а=,й ЧТ (,54+2=204U4L 
Г ae LET аш.дбізіІМТ i. 54180804F IS 2668 LET дД=,а  >ї+тТ 
d$sunHL =: dii 26685 pacar ee ышы i,54+18044:! 
2122 PRINT AT 2,15;с;8Т 8,13 СО SUB Stoa. cB TO 18 772428 
со SUS S482: GO то ig кей ай Ды رس‎ т Sees i TO 1a 
2155 i үз БЕ. 2690 LET dz£Z&R VAL e LADT: 
2135 LET s-28R 1іЗзжОНІ cee te reve 2585 LET t-.BizINT agetderiis 
кин AR ANC Aa TEC leder (.Б+1@@+(1(4+Р 
= ә БЕТ а=.51іР М { =; A ч ГЕ Тс 57р; н и а г = 
L d$£zz! T 4 T ‚ ®+1@й +5 isi Y ds LET сізс.бізіМТ | S418 Besar ; 
і афгіё бз рт 











2705 PRINT AT 5,14:4:8Т7 &,14:¢: 
GO SUB зіла. 62 TO 10 КА 
2712 SAUE "geometry" LINE @: GD 





TO 12 | 

ga323 STOF 

ooga гіс - PRINT атой. а: =й "MEI URN AL 
—————— meme T 


9005 PRINT "$ For the ZXB1 
ad (Ж TRE 33 - 
agio PRINT ————— Bu Iris ten Holder 
S PRINT INK БУНТ 1,15-, 5% LEN E 
22. a 3 _ 1 PRINT “PROGRAM B - DAILY JO 
9102 RESTORE 3125: FOR y=1 TO 4 оғын. T 
FOR х=а TO 7: READ а: POKE USR = с 1886 
НЕ іседі +X, 3: ENT x: EXT ш шш 
se 51223:-х;а: МЕ: ы 15 GOSUB 188 | | 
81@5 DATA 2,2,2,98,148,136,148,3 сә Eur “БЕТ UP ARRAYS 
a а OTE LOSS. z 35 248,43 38 ше Lic Е Е 
ETC t ©; 2;112.,136,22485,1 38 PRINT “INPUT DATA" 
8115 рата 2,4£,iz0,152,1528,208,11 So GUSUB 388 
2,125 4@ PRINT “CASUAL LABOUR" 
9120 гата 2,2,53,46,.208,83,54,152 42 GOSUB 486 
6125 LET z$z"iEnter "'"7"" for un SS GOSUB See 
known vatues:” се GOTO 66 
G133 LET шф= BE PRINT © ІРБІМТ " 
БЕ GOSUB E26 
81235 RETURN БЕ STOP 
S200 INK Бо SLOT 58,77: DRAN 155 7e PRINT “CUMULATIVE TOTALS - 
зд: DRAH -52,52: DRAW -185,-52 CALCULATIONS” 
S220 RETURN 75 GOSUB Tee 
S300 PRINT AT 28.0; HUG G1 GOSUB бәсе 
S325 LET r£z"Entier “r$: PRINT А Bs GOTO 1338 
T 206,15-.,54LEN r$;r$' INK 8:28: ЗЕ GOSUE Бар 
ІМК 7: RETURN ; вә сото 16888 
бара PEINT AT 22,0;ws+ws; AT 21,2 95 GOSUE ose 
i "Press anu Кеш to continue": ға әс PRINT AT 12,12; "EHD" 
USE 2: RETURN зә STOP 
S405 PRINT AT 22,0; w$+w$; FLASH io DIM Ai: 
i; ЫҚ SIAT 228.7) “Моге, data re 185 DIM Bir: 
quired тық 7; FLASH B," Pres 110 DIM REIT. FF) 
5 any Кєз io continue": PANSE @: 115 DIM RiT7) 
RETURN " КҮРЕ 120 DIM Сжізс2,е) 
9418 PRINT АТ шё,б щшф+шф; FLASH 225 DIM C11} 
1; INK ŠAT 28,2; "Irrational г 130 DIM ES(7, 7: 
€suit, iru again’? INK 7; FLASH 135 DIM Ei7) ` 
8" Press апу key to continue’ 140 DIM S5$i22,85 
. PAUSE 0: RETURN i45 DIM 5іг28! 
9415 PRINT АТ 28.0: LEHD; FLASH 170 DIM Xi?) 
1; INE S:AT 28.7: "Too many ent 175 DIM Divi 
ries ІНК f; FLASH 8:5 uer S55, 190 PRINT "RESET COMPLETED” 
any key (о caniinue’: PAUSE 2 ғ 195 PRINT 
ETURN iaa RETURN 
zgo REH ARRAY = 
205 PRINT “CASH REGISTER: DILER 
8, V Vy V ға ғаға Ға тағ, 2 BEER WINE LIiguor CIGZ2" 
ie FOR 4-1 To 7 


1 [t 
ин 


ri Fa Ea Fa ға fate 78 78 гаг 


ti 
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zii PRINT Бі. 

£16 NEXT Ч 

218 CLs 

с2а PRINT "CASH: 12 5 18 28 єй 
3@8 VISA МОН AMEX ENR CHG Tou 
Fes FOR J=1 ТО iz 

eed INPUT Cs its 

ере PRINT Cis 

E26 NEXT J 

есе CLS 

238 PRINT “NUMBERS ОҒ EXPENSE A 
CCOUNTS" 

‚з= PRINT “ТҮРЕ EACH ENTRY: 1 5 
2 1? 18 21 га” 

234 FOR «4-сі TO F 








18 


ne 


Cn f£ fo Cat GI 
буй.) Л 


3 mmo mes Г Py б) 


KED PRODUCE BE 
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INPLT қ 

PRINT TRE QA EUH 

NEXT 4 

CLZ 

PRINT “ТҮРЕ EACH ENTRY: 4 6 
З гей 23 вв” 

FOR Jzi TO 7? 

INPUT Bid: 

PRINT Ei! 

NEXT 4 
CLS 
PRINT "EXPFEHSE der E BA 
ij GRIC LIQUOR HOHF 


DOD CASUAL” 


252 
254 
Есе 
258 
=59 


smt 


un c Ur 6r mre c Or un Go (Л m e eio pg mor e or Or P Сл f 


PN 
(9 


ІЛ 


Cel Тә GIG GI Ce Ca Ga Ga fa Ca Ca ta Gra trcs pr rom o mm or N 


RISO OUS ££ Су La mo fo na fo ES ie» es P Ca a O a QU J 4 


ЕЛ 
чш 


m rS CP CY NG e ro Л буЛ 


FOR 4-і TO 7? 
INPUT ES fg) 
PRINT Еф (М! 
МЕХТ 4 

CLS 


PRINT “SUPPLIERS” 


с FOR Ісі TO Б 


PRINT Exit 

FOR J=shiT! то 
INPUT SE} 
PRINT Sili 
МЕХТ 4 

МЕХТ І 

CLS 

IHFLUT S0) 
LET ELISE 1e se uam 
HEST i 

NEXT I 

CLS 

RETURN 

REM DATH 

PRINT "DHTE'" 

IHFUT BS 

PRINT "LIST SALES” 
FOR J321 TO 5 
PRINT БФ. 
INPUT FRI! 
PRINT THE ЕРІН 


ВІТ! 


PRINT "LIST QUERPUNCHES" 
INPUT ОР 
LET Кіші =F iJ -0Р 


НЕХТ J : 
PRINT "LIST ЕП ІЗ: 
FOR J=1 TO 12 
PRINT Citi 

INPUT Ci. 

PRINT ТАБ S: Cita: 
IF «іш? THEN FRINT 
МЕХТ i 

PRINT "PETTY CRASH 
THPUT СА 

PRINT “LIST EXPENSES" 
REM RESET EXPENSE ТО 2 
LET ET=2 

FOR Ісі TO 6 
PRINT ES iT} 
FOR Мен ТО 
PRINT Skidi 
INPUT Stu) 
PRINT THE 10; 5 
NEXT 4 
CLS 
NEXT I 
RETURN 
REM CRE 
PRINT " 
INFUT М 
LET N=sH+E(6) 


“CARDS: * 


Bid} 


Cd} 


URL 
JUMBER” 


420 LET Et ri =й 
425 PRINT “NAMES” 
аза FOR J=AiF оқ 
435 INPUT Sei) 
448 PRINT Sid] 
445 NEST М 
45@ Cis 
455 FOR JzRH!?7! ТОМ 
468 PRINT S$ iti 
465 INPUT Sid 
478 PRINT Oh за; 5041 
475 LET Et PisE i Fidsid) 
аза NEXT М 
ізе RETURN 
сәс БЕН CALCULATIONS 
сәс LET ТС=@ 
сәс FOR 4ӛсі TO 7 
сә? LET TC-TC4Cci! 
Заб NEXT М 
Sie LET TCüü-e 
S11 FOR J=5 TO 10 
Сір LET TCG-TCÓ-scid! 
515 NEXT М 
өле LET CTIzTC4TCGO 
s28 LET Fivyi =2 
See FOR 31 TO 5 
Set LET БІ? i SRIF +R) 
сос NEXT М 
S28 FOR Ісі TÛ 6 
SSE LET ЕІ: =ø 
535 FOR Ushi Ti TO Bil: 
сас LET ЕІ =Е ІР +5101: 
S42 HEXT М 
S45 NEXT I 
=5@ LET ЕТ=@ 
FOR Ісі TO F 
LET ЕТ=ЕТ+Е (1! 
МЕХТ І 
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BEG TAB 25; 


LET NOsCT-CA 

LET STsNC+ET 

LET OUERZST-Ri?! 
LET SHORT=R (7) 5T 


STOF 
IF ST2R!7) THEN PRINT TAB 1 
OVER 


595 IF STAR (7) THEN PRINT TAB 1 
i; ‚Тав 25; INT il100s5HORT4 

2: oS) 2100 

сов FOR G=1 TO ise 

қа? NEXT à 

cao RETURN 

6@@ REM LPRIHT 

6@1 Сіз 

695 PRINT "CASH";TRBE 8;"1885";T 
AB 17; °SALES"; TRE 25:84 

E12 PRINT | c ———— 
615 FOR ES TO 7 

616 PRINT СОЛ URL сі); "X"; C5 
tH TAE 3;Cl;TAB 17;RSidi; TRE 
ес ht 

617 NEXT J 

ере PRINT ТАБ 2Z;T$;ThB i8;TC 
621i PRINT 

B25 FOR Jz8 TO is 

E25 PRINT СФСР; THB © Сш 

625 NEXT J 

E35 PRINT TAB zZ;T$;TRB 180;TCO 
&36 PRINT TAB i18;"------ ;TAB 1 
ТОСТ 

£37 PRINT "PETTY CASH"; TAB 17; С 











636 PRINT ТАБ 17;"------ " gag GOSUB 170 
ЕЗ8 PRINT "NET CASH’; TAB 17;:NHNC soo GoTo за _ _ 
G42 PRINT TAB 2;T$;" EXPENSES"; 1688 PRINT TAE 18, OPTIONS" 
TAB 17; ЕТ 1005 PRINT 
G42 PRINT ТАБ 17;"------ “TAB = 12129 PRINT TAB EzE;"i. SET UP VARI 
S;5T ARELES" 
644 PRINT ТАБ 25;"------ в 1215 PRINT TAB 2:2. DAHILY INPUT 
646 IF ST RIZ ТНЕМ PRINT TAB 1 5 
т; “RIES TAE 25; OVER ісре PRINT TAB Z;"3. NEU MONTH 
646 ST: ірі? | TREN PRINT TAB i 1025 PRINT TAB 2;"4. END" 
? C TAB 25; INT i188s5HORT4 1833 PRINT THE 2;°5. BAUE" 
e. EET 4035 PRINT ТАБ 2; "в. LIST" 
Б5С БЕМ EXPENSE DETAIL 1039 PRINT 
655 FOR Ісі TO 7 1242 PRINT "LAST DAY ENTERED. " 
&68 PRINT EsiT} Bx 
G65 LET BiTi =H 1845 INPUT A 
а?Ә FOR U=RiI: TO БІТ! 1@46 Сіз 
575 PRINT ТАБ 2:5$(4:;TAE. 13; 5 i 1258 IF A21 THEN GOT 12 
di 1255 IF я=2 THEN GOTO 32 
езо NEXT J 4550 IF 84-3 THER GOTO 38 
555 PRINT TAB LF: Eiri і255 IF Я=4 THEN GoTo 88 
698 NEXT I 1070 IF 4-5 THEN PRINT “READY ТО 
535 PRINT T£; “EXPENSES";TAB 17; SALE" 
ET 1873 IF A=6& THEN LIST 
ease STOP 1078 PAUSE 158 
607 INPUT A$ 4876 CLS 
Bas IF Ag="H' THEN GOTO 33 12080 PRINT "RELEASE PAUSE BUTTON 
ваз RETURH ii 
ТӨӨ LET TTC-TTCaNC 1085 PAUSE 128 
712 LET TTE=TTE+ET 1898 GOTO гай 
720 FOR J=1 TO F реда SAVE "UIS 
TES LET Did? D (D RI 2818 PRINT "COHPLETED" 
735 NEXT 4 22011 STOP 
тав FOR 1-і TO F 2814 GOSUB gaa 
745 LET Xii =X ial) +E (D 2215 GOTO 1 
755 NEXT J S288 PRINT "TOTAL SALES"; TAB 28: 
тай PRINT "COMPLETED" Diu?) 
799 RETURN 84060 PRINT 
ceg Т 25808 PRINT TAE 2:FES (FI; TAB 16; х: 
= CLS 71 
ЗӘр PRINT “CUMULATIVE TOTALS TO аваа PRINT 
DATE: "; TAB 2:Б%) “ав” S552 PRINT "TOTAL EXPENSES”; TASB 
225 PRINT 28; ТТЕ 
818 PRINT “SAL S" 8758 PRINT “TOTAL CASH"; TAB 20:7 
S45 FOR 40-1 ТО Te 
520 PRINT TAB z; PREC) | TAB 19;гі SS80 RETURN 
JH 
S25 NEXT J 
pene PRINT "TOTAL SALES"; TAB 22; 
(Fj 
635 PRINT 
840 PRINT "EXPEHSES" 
B45 FOR 4-1 TO 7 
858 PRINT TAB 2;E$iJi; TAB la; хі 
ii 
855 NEXT J 
865 PRINT “TOTAL EXPENSES"; TAB 
28; TTE 
S706 PRINT 
7875 PRINT “TOTAL CASH’: TRE 28:T 
880 PRINT “TOTAL SHORT= ";DiT)- 
TTE-TTIC 
699 RETURN 
518 LET cT=2 
G45 LET ET=2 
әре FOR ісі TO 7 
S25 LET Ві) =2 
©З@ LET Eid: -Ә 
935 NEXT J 
бав RETURN 
952 LET ТТС=@ 
955 LET TTE-é 





